Window class structure:
~~~~~~~~~~~~~~~~~~~~~~~~
create class Window from Box
  export:
  var ID       //0
  var WRow     //3
  var WCol     //4
  var WRowSize //MaxRow()-7
  var WColSize //MaxCol()-9
  var IsMax    //false
  var IsMin    //false
  var MaxRows  //MaxRow()-3
  var MaxCols  //MaxCol()-1
  var MinRows  //1
  var MinCols  //5
  var UpFlag   //false
  var Screen   //""
  var UpScreen //""
  var BkScreen //""
  var RCInfo   //""
  var InfoMsg  //""
  var Frame    //(object of Frame)
  method New=WindowNew            //o:New() --> self
  method Init=WindowInit          //o:Init(Name,R,C,Rs,Cs,Clr,Shd) --> true
  method GoodInit=WindowGoodInit  //o:GoodInit(Name,R,C,Rs,Cs,CurSize,Clr,Shd) --> true
  method VPaint=WindowVPaint      //o:VPaint() --> true
  method SaveIn=WindowSaveIn      //o:SaveIn() --> true
  method DoInfo=WindowDoInfo      //o:DoInfo() --> true
  method Paint=WindowPaint        //o:Paint(IsTop) --> true
  method Top=WindowTop            //o:Top(lRePaint) --> true
  method RePaint=WindowRePaint    //o:RePaint(lClearDesk) --> true
  method Drag=WindowDrag          //o:Drag(lCanSize) --> true
  method Maximize=WindowMaximize  //o:Maximize() --> true
  method Minimize=WindowMinimize  //o:Minimize(lShow) --> true
  method Restore=WindowRestore    //o:Restore() --> true
  method Done=WindowDone          //o:Done(lRePaint) --> true
  endclass